Websocket-Authenticate names a function, with lambda list (CLIENT AUTH$):
CLIENT wishes to authenticate using AUTH$, a string containing JSON data.
AUTH$ must be a packet in one of the following forms:
It may be a direct login using a known authentication provider, in which case it will contain a key Auth/∞/ℵ₀ (that is, auth infinity alef-null) and be passed to TOOTSVILLE FIND-USER-FOR-JSON for processing.
It may be a Toot-based login (now for children only) and send a getApple request followed by a login request. These are handled by TOOTSVILLE INFINITY-GET-APPLE (qv for dotails of this mechanism) and TOOTSVILLE INFINITY-LOGIN.
For compatibility, a few other packet types may be ignored by this function but are no longer processed. See TOOTSVILLE INFINITY-PRE-LOGIN for details.
The client is required to sign in within a few seconds and can issue no more than a few commands before being dropped. See TOOTSVILLE +PRE-LOGIN-MAX-TIME+ and TOOTSVILLE +PRE-LOGIN-MAX-COMMANDS+.
Defined in file src/websockets.lisp.